
plot(poets$dynamism, pch = "*", cex=2, main = "dynamism")
abline(h = mean(poets$dynamism, na.rm=T), col="red")
text(poets$dynamism, labesls = names(poets$dynamism), adj = c(0.5,1))

plot(poets$speaking_rate, pch = "*", cex=2, main = "Speaking Rate")
abline(h = mean(poets$speaking_rate, na.rm=T), col="red")
text(poets$speaking_rate, labesls = names(poets$speaking_rate), adj = c(0.5,1))

plot(poets$complexityAllPauses, pch = "*", cex=2, main = "ComplexityAllPauses")
abline(h = mean(poets$complexityAllPauses, na.rm=T), col="red")
text(poets$complexityAllPauses, labesls = names(poets$complexityAllPauses), adj = c(0.5,1))

plot(poets$complexitySyllables, pch = "*", cex=2, main = "ComplexitySyllables")
abline(h = mean(poets$complexitySyllables, na.rm=T), col="red")
text(poets$complexitySyllables, labesls = names(poets$complexitySyllables), adj = c(0.5,1))

plot(poets$complexityPhrases, pch = "*", cex=2, main = "ComplexityPhrases")
abline(h = mean(poets$complexityPhrases, na.rm=T), col="red")
text(poets$complexityPhrases, labesls = names(poets$complexityPhrases), adj = c(0.5,1))

plot(poets$pausecount, pch = "*", cex=2, main = "pausecount")
abline(h = mean(poets$pausecount, na.rm=T), col="red")
text(poets$pausecount, labesls = names(poets$pausecount), adj = c(0.5,1))

plot(poets$pauserate, pch = "*", cex=2, main = "pauserate")
abline(h = mean(poets$pauserate, na.rm=T), col="red")
text(poets$pauserate, labesls = names(poets$pauserate), adj = c(0.5,1))

plot(poets$pausemean100, pch = "*", cex=2, main = "pausemean100")
abline(h = mean(poets$pausemean100, na.rm=T), col="red")
text(poets$pausemean100, labesls = names(poets$pausemean100), adj = c(0.5,1))

plot(poets$f0mean, pch = "*", cex=2, main = "f0mean")
abline(h = mean(poets$f0mean, na.rm=T), col="red")
text(poets$f0mean, labesls = names(poets$f0mean), adj = c(0.5,1))

plot(poets$f0range, pch = "*", cex=2, main = "f0range")
abline(h = mean(poets$f0range, na.rm=T), col="red")
text(poets$f0range, labesls = names(poets$f0range), adj = c(0.5,1))

plot(poets$f0speed, pch = "*", cex=2, main = "f0speed")
abline(h = mean(poets$f0speed, na.rm=T), col="red")
text(poets$f0speed, labesls = names(poets$f0speed), adj = c(0.5,1))

plot(poets$f0contour, pch = "*", cex=2, main = "f0contour")
abline(h = mean(poets$f0contour, na.rm=T), col="red")
text(poets$f0contour, labesls = names(poets$f0contour), adj = c(0.5,1))
